home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
games_d
/
hunchy.zip
/
CGADRV.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
661b
|
39 lines
unit CGAdrv;
interface
uses Graph;
procedure CGAdriverProc;
procedure RegisterCGA;
procedure InitCGA (Gm : integer);
implementation
procedure CGAdriverProc; external;
{$L CGA.OBJ }
procedure RegisterCGA;
var
Result : integer;
begin
Result := RegisterBGIdriver (@CGAdriverProc);
if Result<>0 then begin
Writeln ('CGAdrv register error');
Halt;
end;
end;
procedure InitCGA (Gm : integer);
var
Gd : integer;
begin
Gd := CGA;
InitGraph (Gd, Gm, '');
if GraphResult<>0 then begin
Writeln ('CGAdrv initializing error');
Halt;
end;
end;
end.